home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
pxfuname.z
/
pxfuname
Wrap
Text File
|
1998-10-30
|
4KB
|
89 lines
PXFUNAME(3F) Last changed: 1-6-98
NNAAMMEE
PPXXFFUUNNAAMMEE - Retrieves the operating system name
SSYYNNOOPPSSIISS
IINNTTEEGGEERR _j_u_n_a_m,, _i_e_r_r_o_r
CCAALLLL PPXXFFUUNNAAMMEE((_j_u_n_a_m,, _i_e_r_r_o_r))
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
SSTTAANNDDAARRDDSS
IEEE standard interface for FORTRAN 77
DDEESSCCRRIIPPTTIIOONN
On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
7.2 F77 compiler.
The PPXXFFUUNNAAMMEE routine uses the uunnaammee() system call to get the
components of the operating system name.
The components of the uuttssnnaammee structure are:
* sysname: Name of the operating system
* nodename: Name of node in the operating system
* release: Current release level of the operating system
* version: Current version level of the release
* machine: Name of hardware type currently executing the program
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KKIINNDD==44.
The following is a list of valid arguments for this routine:
_j_u_n_a_m An input integer variable or array element containing a
handle for a uuttssnnaammee structure. This should have been
created by a call to the PPXXFFSSTTRRUUCCTTCCRREEAATTEE(3F) routine.
_i_e_r_r_o_r An output integer variable that contains zero if PPXXFFUUNNAAMMEE
returned the structure successfully or nonzero if PPXXFFUUNNAAMMEE
was unable to return the structure.
EEXXAAMMPPLLEESS
program test
integer junam, ierr, ilen
character*15 sname, nname, rel, vers, mach
call pxfstructcreate('utsname',junam,ierr)
call pxfuname(junam,ierr)
IF (ierr.ne.0) then
print *,'FAIL: error from pxfuname = ',ierr
else
print *,'PASS: No error from pxfuname = '
endif
ilen = 0
call pxfstrget(junam,'sysname',sname,ilen,ierr)
ilen = 0
call pxfstrget(junam,'nodename',nname,ilen,ierr)
ilen = 0
call pxfstrget(junam,'release',rel,ilen,ierr)
ilen = 0
call pxfstrget(junam,'version',vers,ilen,ierr)
ilen = 0
call pxfstrget(junam,'machine',mach,ilen,ierr)
print *, 'sysname=',sname
print *, 'nodename=',nname
print *, 'release=',rel
print *, 'version=',vers
print *, 'machine=',mach
call pxfstructfree(junam,ierr)
SSEEEE AALLSSOO
uunnaammee(2)
PPXXFFSSTTRRUUCCTTCCRREEAATTEE(3F)
_A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-
2165, for the printed version of this man page.